home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #8 / 1999 CD 8 (black).iso / maskdemo / DATA1.CAB / Program_Executable_Files / CastleD / KQ / WORLD.CS < prev    next >
Encoding:
Text File  |  1998-12-15  |  2.6 KB  |  107 lines
  1. ##################################################
  2. #
  3. # CastleD load script
  4. #
  5. # DO NOT CHANGE THIS FILE!
  6. #
  7. # Add new objects to newWorld.cs
  8. #
  9. ##################################################
  10.  
  11.  
  12. if test $2 == Init
  13.     ##################################################
  14.     #
  15.     # Only set variables here
  16.     
  17.     set KQWorld::background 11
  18.     
  19.     # Maximum monsters awake at a time
  20.     set KQWorld::MaxMonsters 6
  21.     
  22.     # Terrain damage amounts
  23.     set KQWorld::FastPoisonTime 0
  24.     set KQWorld::PoisonTime 5
  25.     
  26.     if test $KQGame::BitDepth == 8
  27.         set KQWorld::objectPalette Castle.ppl
  28.         set KQWorld::connorPalette Castle.ppl
  29.         set KQWorld::terrainPalette Castle.ppl
  30.         set KQWorld::interiorPalette Castle.ppl
  31.  
  32.         set KQWorld::loadingPalette Castle.ppl
  33.     else
  34.         set KQWorld::objectPalette Castle.ppl
  35.         set KQWorld::connorPalette Castle.ppl
  36.         set KQWorld::terrainPalette Castle.ppl
  37.         set KQWorld::interiorPalette Castle.ppl
  38.  
  39.         set KQWorld::loadingPalette Castle.ppl
  40.     endif
  41.     #
  42.     ##################################################    
  43.     
  44.     
  45.     #############################################################
  46.     # The background:
  47.     
  48.     newSky $KQWorld::background
  49.     
  50.     # the starfield distance must be somewhere between the
  51.     # terrain's visible distance and the camera's far plane
  52.     #set SimStarField::starFieldDistance 16900
  53.     #set SimStarField::count 800
  54.     #newStars
  55.     
  56.     # no planet, yet
  57.     # the planet distance must be somewhere between the
  58.     # terrain's visible distance and the camera's far plane
  59.     # set SimSkyPlanet::planetDistance 16900
  60.     #############################################################
  61.     
  62. else if test $2 == Begin
  63.    if test $CastleD::beenHere == 0
  64.       KQMonster::speak Connor Connor 1000 79 0 10 1 1
  65.       set CastleD::beenHere 1
  66.    endif
  67.    KQConner::setRun 0
  68.  
  69.    KQMonster::checkInventory Connor MagicMap
  70.    if test $Console::Return == 1
  71.     KQMap::activate
  72.    endif
  73.  
  74. else if test $2 == Load
  75.     
  76.     # load the objects
  77.     newWorld.cs
  78.  
  79.     #moved here from mask.cs [10-13 abc]. blackOut sets the display black
  80.     blackOut
  81.     KQGame::selectScreen 1
  82.  
  83.     #moved here from mask.cs [10-13 abc]. blackOut sets the display black
  84.     blackOut
  85.     KQGame::selectScreen 1
  86.  
  87.     # the loadPalette and resetHazeColor calls must appear together
  88.     loadPalette $KQWorld::loadingPalette 0
  89.     # resetHazeColor must appear AFTER the above loadPalette command
  90.     #resetHazeColor 4 8 12
  91.     allowShadows 0
  92.  
  93. else if test $2 == Die
  94.  
  95.     # Things should be added here if the world owns them,
  96.     # but they are not saved out by the persistManager.
  97.  
  98.     echo Unloading $KQWorld::Name
  99.  
  100.     #84 is the SimGroupId for SimSkyGroup
  101.     deleteObject 84
  102.  
  103. endif
  104. endif
  105. endif
  106. endif
  107.